home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / readers / utils / gui4cli / demo.gc next >
Text File  |  1996-10-28  |  1KB  |  48 lines
  1. G4C
  2.  
  3. ; This is the starting GUI
  4.  
  5. ; Well, its not actually a GUI - all it does, is assign GUIs: and load
  6. ; the Demo.g GUI, which will not work if GUIs: is not already assigned.
  7.  
  8. ; Note : this has no window, or anything.. it's just a routine which
  9. ; quits after it has done its dirty work.
  10.  
  11.  
  12.  
  13. xOnLoad
  14. ifExists ASSIGN GUIs
  15.    GuiLoad GUIs:demos/demo.g
  16.    GuiOpen demo.g
  17. else
  18.    ezreq "Guis: is not assigned\nPlease take me inside the\nGui4Cli Directory" "BROWSE|QUIT" dummy
  19.    if $dummy = 0
  20.       GuiQuit demo.gc
  21.       stop
  22.    else
  23.       setvar dummy ""
  24.       ReqFile -1 -1 250 -60 "CD inside Gui4Cli Directory" DIR dummy sys:
  25.       if $dummy = ""
  26.          GuiQuit demo.gc
  27.          stop
  28.       endif
  29.       CD $dummy
  30.    endif
  31.    ifExists FILE c:assign
  32.       CLI 'c:assign GUIs: "$$CURRENT_DIR"'
  33.       GuiLoad GUIs:demos/demo.g
  34.    else
  35.       ezreq 'Command c:Assign not found\nI need it to assign GUIs:' "OK" ""
  36.    endif
  37. endif
  38. guiquit demo.gc
  39.  
  40.  
  41.  
  42. xOnFail
  43. ezreq "Problem in assigning directory\nPlease read the Readme file." "OK" ""
  44. GuiQuit Demo.gc
  45.  
  46.  
  47.  
  48.